-- stack: in.5
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 3258
-- card count: 1
-- first card id: 3691
-- list block id: 2656
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 40992 bytes
-- stack block size: 3072 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x01208000
-- modified by hypercard version: 0x01208000
-- opened by hypercard version: 0x01208000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xA130031A48C00C09
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  hypercardVersion
  hide menuBar
  if field "myPuzzle" ≠ empty and field "cryptoPuzzle" ≠ empty then
    global keyMemory,thePuzzleSolved,myPuzzleMemory, cryptoPuzzleMemory,puzzleMemory --,numberOfHelps
    put field "key" into keyMemory
    --put line 1 of field "record" into numberOfHelps
    put field "record" into memoryTemp1
    delete line 1 to 2 of memoryTemp1
    put memoryTemp1 into thePuzzleSolved
    put field "myPuzzle" into myPuzzleMemory
    put field "cryptoPuzzle" into cryptoPuzzleMemory
    put field "puzzle" into puzzleMemory
  else
    global myPuzzleMemory,cryptoPuzzleMemory,puzzleMemory--,numberOfHelps
    --put line 1 of field "record" into numberOfHelps
    put empty into myPuzzleMEMORY
    put empty into cryptoPuzzleMEMORY
    put empty into puzzleMEMORY
  end if
end openStack

on hypercardVersion
  if the version < 1.2 then
    answer "This stack needs HyperCard version 1.2. or higher!"
    set lockMessages to TRUE
    go home
  end if
end hypercardVersion

on QuitOrGoHome
  answer "Quit HyperCard or Go Home?" with "Quit" or " Go Home"
  if it = "Quit" then doMenu "Quit HyperCard"
  else
    visual effect dissolve
    go home
  end if
end QuitOrGoHome

on closeStack -- 3/14/89
  get the freeSize of this stack
  if it > 1024*10 then
    put the userLevel into userLevelTemp
    set the userLevel to 5
    doMenu "Compact Stack"
    set the userLevel to userLevelTemp
  end if
end closeStack